myvar_0 = GetPrimitiveParameter(0)
myvar_1 = GetPrimitiveParameter(1)
myvar_2 = GetObjectAttribute(myvar_1, 4)
local myvar_4 = "Apartment Wall Adjacencies"
myvar_5 = GenericDataTable["new"](myvar_1, gObjectDataTableID["Apartment Wall Adjacencies"], myvar_4)
{}["positive"] = myvar_5["GetProperty"](myvar_5, GenericDataTable["ApartmentWallAdjacencies"]["Adjacency Positive"])
{}["negative"] = myvar_5["GetProperty"](myvar_5, GenericDataTable["ApartmentWallAdjacencies"]["Adjacency Negative"])
for loopvar1, loopvar2 in {}["positive"] do 
	if ({}["positive"][loopvar1] ~= {}["negative"][loopvar1]) then
		if ({}["positive"][loopvar1] == myvar_2) then
	else
	end
	nWorld["GetTileOnSideOfWall"](loopvar1, 1)[1] = (nWorld["GetTileOnSideOfWall"](loopvar1, 1)[1] + 0.5)
	nWorld["GetTileOnSideOfWall"](loopvar1, 1)[2] = (nWorld["GetTileOnSideOfWall"](loopvar1, 1)[2] + 0.5)
		if (nWorld["CanMoveObjectToLocation"](myvar_0, nWorld["GetTileOnSideOfWall"](loopvar1, 1)[1], nWorld["GetTileOnSideOfWall"](loopvar1, 1)[2], nWorld["GetTileOnSideOfWall"](loopvar1, 1)[3]) ~= 0) then 


			if (myvar_2 == {}["positive"][loopvar1]) then
		else
		end
		{}["direction"] = nWorld["GetOrientationAwayFromWallSide"](loopvar1, 1)[1]
		{}["diagonal"] = nWorld["GetOrientationAwayFromWallSide"](loopvar1, 1)[2]
		{}["position"] = nWorld["GetTileOnSideOfWall"](loopvar1, 1)
		{}["adjacent"] = {}["positive"][loopvar1]
		table["insert"]({}, {})
	end
end
end
myvar_9 = table["getn"]({})
	if (0 >= myvar_9) then
end
local myvar_10 = True
	if (myvar_10 ~= 0) then 
myvar_10 = myvar_10

		if ({}[math["random"](1, myvar_9)]["diagonal"] ~= 0) then 


			if (1 ~= 1) then 


		else
		end
	end
	SetObjectAttribute(myvar_0, 0, 0)
	nWorld["MoveObjectToLocation"](myvar_0, {}[math["random"](1, myvar_9)]["position"][1], {}[math["random"](1, myvar_9)]["position"][2], {}[math["random"](1, myvar_9)]["position"][3], {}[math["random"](1, myvar_9)]["direction"])
	local myvar_17 = 0
	SetTemp(myvar_17, {}[math["random"](1, myvar_9)]["adjacent"])
end
SetScriptReturnValue(myvar_10)
